%!PS-Adobe-3.0
%%Title: Diplomacy Map (marble)
%%Creator: dpmap, using a map created with DPeye by Mario Huys (woelpad@yahoo.com)
%%DocumentPaperSizes: Letter
%%LanguageLevel: 2
%%Orientation: Landscape
%%Pages: (atend)
%%DocumentNeededResources: font Helvetica-Bold Courier Courier-Bold Times-Roman
%%EndComments

%%BeginDefaults
%%PageResources: font Helvetica-Bold Courier Courier-Bold Times-Roman
%%EndDefaults

% INFO
% MAP

%%BeginSetup
%<Play Setup /$RetreatColor ArrowRed /$BuildRays 16 /$ProposeColor ArrowWhite>
%<+ /$FogWaveLength 12 /$HalfSlashThickness 5 /$SpaceChar 32 /$PaintScaleFactor>
%<+ 1 /$MoveColor ArrowBlack /$MapUnitScale 1 /$FixedFontHeightRatio 1>
%<+ /$BuildRadius 24 /$HeadLength 20 /$MoveRadius 8 /$FrameMargin {>
%<+ $FrameThickness $FrameMarginRatio mul } /$MapUnitLetterSize 14>
%<+ /$TextFontWidthRatio $FixedFontWidthRatio /$ArrowShaftLength 40>
%<+ /$MapImageLeft 0 /$PageHeight 612 /$MapImageRight 839 /$SwitchToMapMode>
%<+ SwitchToMapMode /$FindFont findfont /$Pi 3.14159 /$InitModes {>
%<+ /FinishReport { } def /InTextMode true def } /$MapUnitOffsetX 0>
%<+ /$TextFontHeight {$TextFontHeightRatio $TextFontSize mul} /$MapUnitOffsetY>
%<+ 8 /$MapNameOffsetX 0 /$FixedFontWidthRatio .6 /$ArrowLineThickness 1>
%<+ /$MapNameOffsetY -14 /$BuildRayFraction {1 3 div} /$TextFontHeightRatio>
%<+ $FixedFontHeightRatio /$PageWidth 792 /$ArrowBase 0 /$AbsoluteRoundingError>
%<+ 0 /$HalfSlashLength 16 /$HalfHeadThickness 5 /$MapImageWidth {>
%<+ $MapImageRight $MapImageLeft sub } /$MapNameFontSize 14 /$FrameScale 1>
%<+ /$MapImageTop 671 /$FogWaveRaiseHeight 3 /$FogWaveRaiseLength 4>
%<+ /$ConvoyRadius 12 /$DiscoverColor ArrowBlue /$HalfThickness 1>
%<+ /$FogWaveDistance 8 /$ArrowRotate {} /$FogWaveThickness 4 /$MapSupplyScale>
%<+ $MapDrawingScale /$TextFontWidth {$TextFontWidthRatio $TextFontSize mul}>
%<+ /$MapImageBottom 0 /$HoldRadius 24 /$MapNameScale $MapUnitScale>
%<+ /$BuildColor ArrowWhite /$FrameThickness 4 /$BuildRayThickness 6>
%<+ /$FrameMarginRatio .5 /$FinishModes { InTextMode { FinishReport } { r }>
%<+ ifelse } /$MapImageHeight {$MapImageTop $MapImageBottom sub}>
%<+ /$MapDrawingScale 1>

%<Play Definitions>

%<Act Shorthand>
/bd { bind def } bind def
/xd { exch def } bd
/ld { load def } bd
%</Act>

%<Sketch Math>
%$ /ifloor { $AbsoluteRoundingError add floor cvi } bd
/ifloor { .001 add floor cvi } bd
%$ /iceiling { $AbsoluteRoundingError sub ceiling cvi } bd
/iceiling { .001 sub ceiling cvi } bd
/min { 2 copy gt { exch } if pop } bd
/max { 2 copy lt { exch } if pop } bd
/secure_atan { 2 copy 0 eq exch 0 eq and { pop pop 0 } { atan } ifelse } bd
/center { 3 2 roll add 2 div 3 1 roll add 2 div exch } bd
%</Sketch>

%<Scene PaintOperators /operator ld /format {name name}>
/a /arc ld
/c /curveto ld
/d /setdash ld
/f /fill ld
/h /show ld
/k /stroke ld
/l /lineto ld
/m /moveto ld
/n /newpath ld
/o /rotate ld
/p /closepath ld
/r /grestore ld
/s /gsave ld
/t /translate ld
/w /setlinewidth ld
/x /scale ld
/y /scalefont ld
/z /setfont ld
%</Scene>

%<Act Powers>
/Powers 20 dict def
%</Act>

%<Sketch MapUnitDefinitions>
%%IncludeResource: font Helvetica-Bold
%$ /MapUnitLetterFont /Helvetica-Bold $FindFont $MapUnitLetterSize y def
/MapUnitLetterFont /Helvetica-Bold findfont 14 y def
%</Sketch>

%<Sketch MapNameDefinitions>
%%IncludeResource: font Helvetica-Bold
%$ /MapNameFont /Helvetica-Bold $FindFont $MapNameFontSize y def
/MapNameFont /Helvetica-Bold findfont 14 y def
%</Sketch>

%<Sketch TextColumnDefinitions>
%%IncludeResource: font Courier
%$ /TextFixedFont /Courier $FindFont def
/TextFixedFont /Courier findfont def
%</Sketch>

%<Sketch TextHeadingDefinitions>
%%IncludeResource: font Courier-Bold
%$ /TextHeadingFont /Courier-Bold $FindFont def
/TextHeadingFont /Courier-Bold findfont def
%</Sketch>

%<Sketch TextTitleDefinitions>
%%IncludeResource: font Times-Roman
%$ /TextTitleFont /Times-Roman $FindFont def
/TextTitleFont /Times-Roman findfont def
%</Sketch>

%</Play>

%<Play Chapters /references { () PageLayout MapImageScale Global { }>
%<+ MapDrawingScale Global { } MapDrawingScale Global { } MapDrawingScale>
%<+ Global { } MapDrawingScale } /$GlobalMapDrawingScale 1 /define bd>

%<Chapter PageSetup>
/PageSetup {

%<Sketch TurnLandscape>
	%$ $PageHeight 0 t
	612 0 t
	90 o
%</Sketch>

%<Sketch SetupGState>
	%$ $InitModes
	/FinishReport { } def /InTextMode true def
	Black
	MovePhase
%</Sketch>

} bd
%</Chapter>

%<Chapter ShowPage>
/ShowPage {
	DrawAliases
	%$ $FinishModes
	InTextMode { FinishReport } { r } ifelse
	FrameMap

%<Part none/>

	showpage
} bd
%</Chapter>

%<Chapter VisitColors /define def>
/VisitColors {
	3 dict begin
	/c xd /r xd /g xd

%<Scene GrayColors /operator g /format {name 1}>
	/BorderBlack .1 g
	/MountainGrey .5 g
	/IceGrey .9 g
	/ArrowBlack 0 g
	/ArrowWhite .9 g
	/Black 0 g
	/White .9 g
	/Grey .7 g
%</Scene>

%<Scene RGBColors /operator r /format {name 3}>
	/LandBrown .8 .7 .4 r
	/SeaBlue .1 .4 .6 r
	/ArrowRed 1 0 0 r
	/ArrowBlue .529 .808 .922 r
	/Brown .6 .45 .2 r
	/Yellow 1 1 0 r
	/Blue 0 0 1 r
	/Orange 1 .6 0 r
	/Turquoise .2 .7 .7 r
	/Mauve 1 0 1 r
	/@LimeGreen .196 .804 .196 r
%</Scene>

%<Scene CMYKColors /operator g /format {name 1}/>

	end
} def
%</Chapter>

%<Chapter VisitPowers /define def>
/VisitPowers {
	1 dict begin
	/p xd

%<Scene Powers /operator p /format {uname ustring name name}>
	/BRITAIN (B) /Blue /White p
	/CHINA (C) /Orange /White p
	/FRANCE (F) /Turquoise /Black p
	/GERMANY (G) /Black /White p
	/JAPAN (J) /Grey /Black p
	/RUSSIA (R) /White /Black p
	/USA (U) /Mauve /White p
	/NEUTRAL ( ) /@LimeGreen /White p
	/UNOWNED (?) /Brown /White p
%</Scene>

	end
} def
%</Chapter>

%<Chapter Controls>
/Controls {

%<Act Controls>
	/ChangeController true def
%</Act>

} bd
%</Chapter>

%<Chapter DrawFleet /$StrokeUnit { Controlled { s 6 $PaintScaleFactor div w>
%<+ Outer k r } if 2 $PaintScaleFactor div w Contrast k } /$FillUnit {Paint f}>
/DrawFleet {
	%$ $SwitchToMapMode
	SwitchToMapMode
	Power begin
	s t

%<Sketch LocateTroop>
	%$ $MapUnitScale dup x
	1 1 x
	%$ $MapUnitOffsetX $MapUnitOffsetY t
	0 8 t
%</Sketch>

%<Sketch PaintFleet>
	-26 -7 m -26 -2 l -19 -2 l -19 -1 l % to bow
	-22 -1 l -22 0 l -15 0 l -15 1 l % A turret
	-18 1 l -18 2 l -10 2 l -10 0 l % B turret
	-9 0 l -9 4 l -8 4 l -8 6 l % conn tower
	-6 6 l -6 5 l -5 5 l -5 9 l % Infra struct
	-3 9 l -3 14 l -2 14 l -2 9 l % funnel 1
	0 9 l 0 5 l 1 5 l 1 8 l % funnel 2
	3 8 l 3 13 l 4 13 l 4 8 l % mast 2
	6 8 l 6 0 l 8 0 l 8 2 l % funnel 2
	16 2 l 16 1 l 13 1 l 13 0 l % C turret
	20 0 l 20 -1 l 17 -1 l 17 -2 l % D turret
	23 -2 l 23 -3 l 25 -3 l 25 -5 l % stern
	24 -5 l 24 -7 l p
	%$ s $StrokeUnit r $FillUnit
	s Controlled { s 6 w Outer k r } if 2 w Contrast k r Paint f
%</Sketch>

%<Act PaintLetter>
	Offset aload pop m
	MapUnitLetterFont z
	Contrast Letter h
%</Act>

	r
	end
} bd
%</Chapter>

%<Chapter DrawArmy /$StrokeUnit { Controlled { s 6 $PaintScaleFactor div w>
%<+ Outer k r } if 2 $PaintScaleFactor div w Contrast k } /$FillUnit {Paint f}>
/DrawArmy {
	%$ $SwitchToMapMode
	SwitchToMapMode
	Power begin
	s t

%<Sketch LocateTroop>
	%$ $MapUnitScale dup x
	1 1 x
	%$ $MapUnitOffsetX $MapUnitOffsetY t
	0 8 t
%</Sketch>

%<Sketch PaintArmy>
	n 0 0 9 0 360 a p % wheel
	%$ $StrokeUnit
	Controlled { s 6 w Outer k r } if 2 w Contrast k
	-20 7 m 10 7 l 10 3 l 14 3 l
	14 1 l -16 1 l -16 3 l -20 3 l p % barrel
	4 2 m 24 -8 l 26 -8 l 18 -8 l -2 2 l % carriage
	%$ s $StrokeUnit r $FillUnit
	s Controlled { s 6 w Outer k r } if 2 w Contrast k r Paint f
	n 0 0 9 0 360 a p % wheel
	%$ $FillUnit
	Paint f
%</Sketch>

%<Act PaintLetter>
	Offset aload pop m
	MapUnitLetterFont z
	Contrast Letter h
%</Act>

	r
	end
} bd
%</Chapter>

%<Chapter DrawAlias>
/DrawAlias {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	3 1 roll t

%<Sketch LocateName>
	%$ $MapNameScale dup x
	1 1 x
	%$ $MapNameOffsetX $MapNameOffsetY t
	0 -14 t
%</Sketch>

%<Act PaintName>
	MapNameFont z
	dup stringwidth pop -2 div 0 neg m h
%</Act>

	r
} bd
%</Chapter>

%<Chapter DrawName>
/DrawName {
	pop pop pop

%<Part none/>

} bd
%</Chapter>

%<Chapter VisitTerritories /format {ustring value value} /$NumberOfScenes 0>
%<+ /define def>
/VisitTerritories {
	%$ $NumberOfScenes dict begin
	0 dict begin

%<Act Operators/>

	end
} def
%</Chapter>

%<Chapter VisitSupplies /format {uname value value} /$NumberOfScenes 0 /define>
%<+ def>
/VisitSupplies {
	%$ $NumberOfScenes dict begin
	0 dict begin

%<Act Operators/>

	end
} def
%</Chapter>

%<Chapter supply>
/supply {
	%$ $SwitchToMapMode
	SwitchToMapMode
	Power begin
	s
	t

%<Sketch LocateSupply>
	%$ $MapSupplyScale dup x
	1 1 x
%</Sketch>

%<Act PaintControllableSupply>
	Controlled {
		Outer
		n 0 0 8 0 360 a f
		Contrast
		n 0 0 6 0 360 a f
	} if
	Paint
	n 0 0 4 0 360 a f
%</Act>

	r
	end
} bd
%</Chapter>

%<Chapter SetArrowStateOk>
/SetArrowStateOk {

%<Act OkOrder>
	[] 0 d
%</Act>

} bd
%</Chapter>

%<Chapter OkOrder>
/OkOrder {
	/SetArrowState /SetArrowStateOk ld

%<Part none/>

} bd
%</Chapter>

%<Chapter SetArrowStateFailed>
/SetArrowStateFailed {

%<Act FailedOrder>
	[4 6] 2 d
%</Act>

} bd
%</Chapter>

%<Chapter FailedOrder>
/FailedOrder {
	/SetArrowState /SetArrowStateFailed ld

%<Part none/>

} bd
%</Chapter>

%<Chapter MovePhase /$ArrowBase $HeadLength>
/MovePhase {
	%$ /ArrowColor /$MoveColor ld
	/ArrowColor /ArrowBlack ld
	%$ /ArrowBase $ArrowBase def
	/ArrowBase 20 def
	/TraceArrowHead /TraceSingleArrowHead ld
	InTextMode not { ArrowColor } if

%<Part none/>

} bd
%</Chapter>

%<Chapter RetreatPhase /$ArrowBase { $HeadLength 2 mul $HalfThickness>
%<+ $HalfHeadThickness div sub }>
/RetreatPhase {
	%$ /ArrowColor /$RetreatColor ld
	/ArrowColor /ArrowRed ld
	%$ /ArrowBase $ArrowBase def
	/ArrowBase 39.8 def
	/TraceArrowHead /TraceDoubleArrowHead ld
	InTextMode not { ArrowColor } if

%<Part none/>

} bd
%</Chapter>

%<Chapter ProposePhase /$ArrowBase { $HeadLength 2 mul $HalfThickness>
%<+ $HalfHeadThickness div sub }>
/ProposePhase {
	%$ /ArrowColor /$ProposeColor ld
	/ArrowColor /ArrowWhite ld
	%$ /ArrowBase $ArrowBase def
	/ArrowBase 39.8 def
	/TraceArrowHead /TraceDoubleArrowHead ld
	InTextMode not { ArrowColor } if

%<Part none/>

} bd
%</Chapter>

%<Chapter TraceSingleArrowHead>
/TraceSingleArrowHead {

%<Sketch TraceSingleArrowHead>
	% draw the arrow head ...
	n
	%$ dup $HalfHeadThickness neg m
	dup -5 m
	%$ dup $HeadLength add 0 l
	dup 20 add 0 l
	%$ dup $HalfHeadThickness l
	dup 5 l
	p
%</Sketch>

} bd
%</Chapter>

%<Chapter TraceDoubleArrowHead>
/TraceDoubleArrowHead {

%<Sketch TraceDoubleArrowHead>
	% draw the double arrow head ...
	n
	%$ dup $HalfHeadThickness neg m
	dup -5 m
	%$ dup $HeadLength $HalfThickness $HalfHeadThickness div sub add
	dup 19.8 add
	%$ dup $HalfThickness neg l
	dup -1 l
	%$ dup $HalfHeadThickness neg l
	dup -5 l
	%$ dup $HeadLength add 0 l
	dup 20 add 0 l
	%$ dup $HalfHeadThickness l
	dup 5 l
	%$ $HalfThickness l
	1 l
	%$ dup $HalfHeadThickness l
	dup 5 l
	p
%</Sketch>

} bd
%</Chapter>

%<Chapter PaintArrowMove /$ArrowBase ArrowBase>
/PaintArrowMove {
	s

%<Sketch LocateArrow>
	3 index 3 index t
	3 2 roll sub 3 1 roll exch sub exch
	2 copy dup mul exch dup mul add sqrt 3 1 roll exch secure_atan
	%$ $MapUnitScale dup x
	1 1 x
	%$ $MapUnitOffsetX $MapUnitOffsetY t
	0 8 t
	o
	%$ $MapUnitScale div $ArrowBase sub
	ArrowBase sub
%</Sketch>

%<Sketch ShortenArrowTail>
	% if base of arrow is long enough, shorten it enough
	% to e.g. move arrow start beyond support circle
	%$ dup $MapUnitLetterSize gt {
	dup 14 gt {
		%$ $MapUnitLetterSize dup 0 t sub
		14 14 0 t sub
	} {
		0 t 0
	} ifelse
%</Sketch>

%<Sketch ShortenArrowTip>
	% if base is still too long, shorten it some more
	% to make arrow head touch support circle
	%$ dup $MapUnitLetterSize gt {
	dup 14 gt {
		%$ $MapUnitLetterSize sub
		14 sub
	} {
		pop 0
	} ifelse
%</Sketch>

%<Play PaintArrowMove>
	%$   $ArrowLineThickness w
	1 w

%<Part none/>

%<Act TraceArrowHead>
	TraceArrowHead
%</Act>

	k
	% now the shaft ...
	%$   $HalfThickness 2 mul w
	2 w
	0 0 m
	0 l
	k
%</Play>

	r
} bd
%</Chapter>

%<Chapter PaintArrowCircle>
/PaintArrowCircle {
	s
	5 1 roll

%<Sketch LocateArrow>
	3 index 3 index t
	3 2 roll sub 3 1 roll exch sub exch
	2 copy dup mul exch dup mul add sqrt 3 1 roll exch secure_atan
	%$ $MapUnitScale dup x
	1 1 x
	%$ $MapUnitOffsetX $MapUnitOffsetY t
	0 8 t
	o
	%$/ $MapUnitScale div $ArrowBase sub
%</Sketch>

%<Sketch ArrowCircleBase>
	1 index sub
%</Sketch>

%<Sketch ShortenArrowTail>
	% if base of arrow is long enough, shorten it enough
	% to e.g. move arrow start beyond support circle
	%$ dup $MapUnitLetterSize gt {
	dup 14 gt {
		%$ $MapUnitLetterSize dup 0 t sub
		14 14 0 t sub
	} {
		0 t 0
	} ifelse
%</Sketch>

%<Sketch PaintArrowCircle>
	% draw the circle ...
	%$ $ArrowLineThickness w
	1 w
	n
	2 copy add 0 4 3 roll 0 360 a
	p k
	% now the shaft ...
	%$ $HalfThickness 2 mul w
	2 w
	0 0 m
	0 l
	k
%</Sketch>

	r
} bd
%</Chapter>

%<Chapter PaintArrowArrive /$ArrowRotate {180 rotate} /$ArrowBase ArrowBase>
/PaintArrowArrive {
	s

%<Sketch LocateTrailingArrow>
	t
	%$ $MapUnitScale dup x
	1 1 x
	%$ $MapUnitOffsetX $MapUnitOffsetY t
	0 8 t
	%$ $ArrowRotate $MapUnitLetterSize $ArrowShaftLength add $ArrowBase add neg 0 t
	180 rotate 54 ArrowBase add neg 0 t
	%$ $ArrowShaftLength
	40
%</Sketch>

%<Play PaintArrowMove>
	%$   $ArrowLineThickness w
	1 w

%<Part none/>

%<Act TraceArrowHead>
	TraceArrowHead
%</Act>

	k
	% now the shaft ...
	%$   $HalfThickness 2 mul w
	2 w
	0 0 m
	0 l
	k
%</Play>

	-5 0 m -10 0 l
	-15 0 m -20 0 l
	k
	r
} bd
%</Chapter>

%<Chapter PaintArrowDepart>
/PaintArrowDepart {
	s

%<Sketch LocateTrailingArrow>
	t
	%$ $MapUnitScale dup x
	1 1 x
	%$ $MapUnitOffsetX $MapUnitOffsetY t
	0 8 t
	%$ $ArrowRotate $MapUnitLetterSize $ArrowShaftLength add $ArrowBase add neg 0 t
	-54 0 t
	%$ $ArrowShaftLength
	40
%</Sketch>

%<Sketch TraceLineShaft>
	%$ $HalfThickness 2 mul w
	2 w
	0 0 m
	0 l
%</Sketch>

	-6 0 m -10 0 l
	-16 0 m -20 0 l
	k
	r
} bd
%</Chapter>

%<Chapter ArrowMove>
/ArrowMove {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	SetArrowState

%<Part none/>

	PaintArrowMove
	r
} bd
%</Chapter>

%<Chapter ArrowHold>
/ArrowHold {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	SetArrowState

%<Part none/>

	%$ $HoldRadius PaintArrowCircle
	24 PaintArrowCircle
	r
} bd
%</Chapter>

%<Chapter ArrowSupport>
/ArrowSupport {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	SetArrowState

%<Part none/>

	center
	%$ $MoveRadius PaintArrowCircle
	8 PaintArrowCircle
	r
} bd
%</Chapter>

%<Chapter ArrowConvoy>
/ArrowConvoy {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	SetArrowState

%<Part none/>

	center
	%$ $ConvoyRadius PaintArrowCircle
	12 PaintArrowCircle
	r
} bd
%</Chapter>

%<Chapter ArrowArrive>
/ArrowArrive {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	SetArrowState

%<Part none/>

	PaintArrowArrive
	r
} bd
%</Chapter>

%<Chapter ArrowDepart>
/ArrowDepart {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	SetArrowState

%<Part none/>

	PaintArrowDepart
	r
} bd
%</Chapter>

%<Chapter ArrowRetreat>
/ArrowRetreat {
	RetreatPhase
	ArrowMove
	MovePhase

%<Part none/>

} bd
%</Chapter>

%<Chapter ArrowPropose>
/ArrowPropose {
	ProposePhase
	ArrowMove
	MovePhase

%<Part none/>

} bd
%</Chapter>

%<Chapter ArrowRetreatArrive>
/ArrowRetreatArrive {
	RetreatPhase
	ArrowArrive
	MovePhase

%<Part none/>

} bd
%</Chapter>

%<Chapter ArrowRetreatDepart>
/ArrowRetreatDepart {
	RetreatPhase
	ArrowDepart
	MovePhase

%<Part none/>

} bd
%</Chapter>

%<Chapter BuildUnit>
/BuildUnit {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	t
	%$ $BuildColor
	ArrowWhite

%<Sketch LocateTroop>
	%$ $MapUnitScale dup x
	1 1 x
	%$ $MapUnitOffsetX $MapUnitOffsetY t
	0 8 t
%</Sketch>

%<Sketch PaintBuildCircle /$BuildDashStart {$BuildRayLength 2 div}>
%<+ /$BuildSpaceLength {$BuildDashLength 1 $BuildRayFraction sub mul}>
%<+ /$BuildRayLength {$BuildDashLength $BuildRayFraction mul} /$BuildDashLength>
%<+ { $Pi 2 mul $BuildRadius mul $BuildRays div }>
	%$ $BuildRayThickness w [ $BuildRayLength# $BuildSpaceLength# ] $BuildDashStart# d
	6 w [ 3.14 6.28 ] 1.57 d
	n
	%$ 0 0 $BuildRadius 0 360 a
	0 0 24 0 360 a
	p k
%</Sketch>

	r
} bd
%</Chapter>

%<Chapter SlashUnit>
/SlashUnit {
	s
	3 1 roll t

%<Sketch LocateTroop>
	%$ $MapUnitScale dup x
	1 1 x
	%$ $MapUnitOffsetX $MapUnitOffsetY t
	0 8 t
%</Sketch>

%<Sketch TraceSlash>
	n
	%$ $HalfSlashThickness neg $HalfSlashLength sub $HalfSlashLength neg m
	-21 -16 m
	%$ $HalfSlashThickness neg $HalfSlashLength add $HalfSlashLength l
	11 16 l
	%$ $HalfSlashThickness $HalfSlashLength add $HalfSlashLength l
	21 16 l
	%$ $HalfSlashThickness $HalfSlashLength sub $HalfSlashLength neg l
	-11 -16 l
	p
%</Sketch>

	exec
	r
} bd
%</Chapter>

%<Chapter DestroyUnit>
/DestroyUnit {
	%$ $SwitchToMapMode
	SwitchToMapMode
	%$ { $RetreatColor f } SlashUnit
	{ ArrowRed f } SlashUnit

%<Part none/>

} bd
%</Chapter>

%<Chapter DisbandUnit>
/DisbandUnit {
	%$ $SwitchToMapMode
	SwitchToMapMode
	%$ { s $BuildColor f r $ArrowLineThickness w $RetreatColor k } SlashUnit
	{ s ArrowWhite f r 1 w ArrowRed k } SlashUnit

%<Part none/>

} bd
%</Chapter>

%<Chapter RemoveUnit>
/RemoveUnit {
	%$ $SwitchToMapMode
	SwitchToMapMode
	%$ { $BuildColor f } SlashUnit
	{ ArrowWhite f } SlashUnit

%<Part none/>

} bd
%</Chapter>

%<Chapter FindUnit>
/FindUnit {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	t
	%$ $DiscoverColor
	ArrowBlue

%<Sketch LocateTroop>
	%$ $MapUnitScale dup x
	1 1 x
	%$ $MapUnitOffsetX $MapUnitOffsetY t
	0 8 t
%</Sketch>

%<Sketch PaintBuildCircle /$BuildDashStart {$BuildRayLength 2 div}>
%<+ /$BuildSpaceLength {$BuildDashLength 1 $BuildRayFraction sub mul}>
%<+ /$BuildRayLength {$BuildDashLength $BuildRayFraction mul} /$BuildDashLength>
%<+ { $Pi 2 mul $BuildRadius mul $BuildRays div }>
	%$ $BuildRayThickness w [ $BuildRayLength# $BuildSpaceLength# ] $BuildDashStart# d
	6 w [ 3.14 6.28 ] 1.57 d
	n
	%$ 0 0 $BuildRadius 0 360 a
	0 0 24 0 360 a
	p k
%</Sketch>

	r
} bd
%</Chapter>

%<Chapter LoseUnit>
/LoseUnit {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	t
	%$ $DiscoverColor
	ArrowBlue

%<Sketch LocateTroop>
	%$ $MapUnitScale dup x
	1 1 x
	%$ $MapUnitOffsetX $MapUnitOffsetY t
	0 8 t
%</Sketch>

%<Sketch PaintFogWave>
	%$ $FogWaveThickness w
	4 w
	%$ $FogWaveLength neg $FogWaveDistance 2 div m
	-12 4 m
	%$ $FogWaveLength neg $FogWaveRaiseLength add $FogWaveDistance 2 div $FogWaveRaiseHeight add $FogWaveRaiseLength neg $FogWaveDistance 2 div $FogWaveRaiseHeight add 0 $FogWaveDistance 2 div c
	-8 7 -4 7 0 4 c
	%$ $FogWaveRaiseLength $FogWaveDistance 2 div $FogWaveRaiseHeight sub $FogWaveLength $FogWaveRaiseLength sub $FogWaveDistance 2 div $FogWaveRaiseHeight sub $FogWaveLength $FogWaveDistance 2 div c
	4 1 8 1 12 4 c
	%$ $FogWaveLength neg $FogWaveDistance 2 div neg m
	-12 -4 m
	%$ $FogWaveLength neg $FogWaveRaiseLength add $FogWaveDistance 2 div neg $FogWaveRaiseHeight add $FogWaveRaiseLength neg $FogWaveDistance 2 div neg $FogWaveRaiseHeight add 0 $FogWaveDistance 2 div neg c
	-8 -1 -4 -1 0 -4 c
	%$ $FogWaveRaiseLength $FogWaveDistance 2 div neg $FogWaveRaiseHeight sub $FogWaveLength $FogWaveRaiseLength sub $FogWaveDistance 2 div neg $FogWaveRaiseHeight sub $FogWaveLength $FogWaveDistance 2 div neg c
	4 -7 8 -7 12 -4 c
	k
%</Sketch>

	r
} bd
%</Chapter>

%<Chapter QueryUnit>
/QueryUnit {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	t
	%$ $ProposeColor
	ArrowWhite

%<Sketch LocateTroop>
	%$ $MapUnitScale dup x
	1 1 x
	%$ $MapUnitOffsetX $MapUnitOffsetY t
	0 8 t
%</Sketch>

%<Sketch PaintFogWave>
	%$ $FogWaveThickness w
	4 w
	%$ $FogWaveLength neg $FogWaveDistance 2 div m
	-12 4 m
	%$ $FogWaveLength neg $FogWaveRaiseLength add $FogWaveDistance 2 div $FogWaveRaiseHeight add $FogWaveRaiseLength neg $FogWaveDistance 2 div $FogWaveRaiseHeight add 0 $FogWaveDistance 2 div c
	-8 7 -4 7 0 4 c
	%$ $FogWaveRaiseLength $FogWaveDistance 2 div $FogWaveRaiseHeight sub $FogWaveLength $FogWaveRaiseLength sub $FogWaveDistance 2 div $FogWaveRaiseHeight sub $FogWaveLength $FogWaveDistance 2 div c
	4 1 8 1 12 4 c
	%$ $FogWaveLength neg $FogWaveDistance 2 div neg m
	-12 -4 m
	%$ $FogWaveLength neg $FogWaveRaiseLength add $FogWaveDistance 2 div neg $FogWaveRaiseHeight add $FogWaveRaiseLength neg $FogWaveDistance 2 div neg $FogWaveRaiseHeight add 0 $FogWaveDistance 2 div neg c
	-8 -1 -4 -1 0 -4 c
	%$ $FogWaveRaiseLength $FogWaveDistance 2 div neg $FogWaveRaiseHeight sub $FogWaveLength $FogWaveRaiseLength sub $FogWaveDistance 2 div neg $FogWaveRaiseHeight sub $FogWaveLength $FogWaveDistance 2 div neg c
	4 -7 8 -7 12 -4 c
	k
%</Sketch>

	r
} bd
%</Chapter>

%<Chapter SplitString>
/SplitString {

%<Sketch SplitString>
	7 dict begin
	/nrChars xd
	/indentString xd
	/objectString xd
	/objectLast objectString length 1 sub def
	% Short string?
	objectLast nrChars lt {
		false objectString
	} {
		% Look for a suitable place to split.
		% First tracking backwards, if that doesn't work, look forward.
		/splitIndex -1 def
		nrChars -1 0 {
			%$ objectString 1 index get $SpaceChar eq {
			objectString 1 index get 32 eq {
				/splitIndex xd exit
			} if pop
		} for splitIndex -1 eq {
			nrChars 1 add 1 objectLast {
				%$ objectString 1 index get $SpaceChar eq {
				objectString 1 index get 32 eq {
					/splitIndex xd exit
				} if pop
			} for
		} if
		splitIndex -1 eq splitIndex objectLast eq or {
			false objectString
		} {
			% The first part.
			objectString 0 splitIndex getinterval
			% The second part.
			objectString splitIndex 1 add objectLast splitIndex sub getinterval
			% Add indentation if needed.
			indentString length 0 gt {
				dup length indentString length add string
				dup 0 indentString putinterval
				dup indentString length 4 3 roll putinterval
			} if
			% Add white space of the first part.
			/nonSpaceIndex objectLast 1 add def
			0 1 objectLast {
				%$ objectString 1 index get $SpaceChar ne {
				objectString 1 index get 32 ne {
					/nonSpaceIndex xd exit
				} if pop
			} for
			nonSpaceIndex 0 gt nonSpaceIndex splitIndex lt and {
				dup length nonSpaceIndex add string
				dup 0 objectString 0 nonSpaceIndex getinterval putinterval
				dup nonSpaceIndex 4 3 roll putinterval
			} if
			exch true exch
		} ifelse
	} ifelse
	end
%</Sketch>

} bd
%</Chapter>

%<FrameLayout PageLayout /$SetTextFont {TextFixedFont $TextFontSize# y z}>
%<+ /references { ImageFrame { ImageGrid ImageFrame } { Left Bottom Width>
%<+ Height } Image { ImageGrid ImageFrame Image } { Left Bottom Width Height }>
%<+ Map { ImageGrid ImageFrame Image } { Left Bottom Width Height ImageScale>
%<+ FrameLeft FrameBottom FrameWidth FrameHeight } } /layout ImageGrid>
%<+ /$ImageFrameBottom 22.5 /$ImageLeft 44.02011923 /$ImageFrameHeight 567>
%<+ /$ImageBottom 24.5 /$MapImageScale .8390462 /marginWidth 20 /$MapBottom>
%<+ 24.5 /$ImageHeight 563 /$ImageFrameWidth 751.8 /$ImageFrameLeft 20.1>
%<+ /height $PageHeight /$TextFontSize 7 /$MapLeft 44.02011923 /marginHeight 20>
%<+ /type proc /$ImageWidth 703.95976155 /width $PageWidth /fitWidth 1 /define>
%<+ bd /fitHeight 1 /$ClipAndTransformToMap { $MapImageScale#4 dup x>
%<+ {$MapLeft $MapImageScale div $MapImageLeft sub}#>
%<+ {$MapBottom $MapImageScale div $MapImageBottom sub}# t ClipMap }>
%<+ /$MapDrawingScale {$FrameScale $MapImageScale div}>

%<Chapter DrawLayoutBorders>
/DrawLayoutBorders {
	s
	%$ $SetTextFont
	TextFixedFont 7 y z

%<Play ImageFrame /$Width $ImageFrameWidth /$Height $ImageFrameHeight /$Bottom>
%<+ $ImageFrameBottom /$BorderColor Brown /$Left $ImageFrameLeft>
	%$ $BorderColor
	Brown

%<Sketch DrawBoxFrameBorder>
	%$ $Left# $Bottom# $Width# $Height# rectstroke
	20.1 22.5 751.8 567 rectstroke
%</Sketch>

%</Play>

%<Play Image /$Width $ImageWidth /$Height $ImageHeight /$Bottom $ImageBottom>
%<+ /$BorderColor Yellow /$Left $ImageLeft>
	%$ $BorderColor
	Yellow

%<Sketch DrawBoxFrameBorder>
	%$ $Left# $Bottom# $Width# $Height# rectstroke
	44.02 24.5 703.96 563 rectstroke
%</Sketch>

%</Play>

	r
} bd
%</Chapter>

%<GridLayout ImageGrid /cellWidth $TextFontWidth /cellHeight $TextFontHeight>
%<+ /fitWidth 2 /fitHeight 2 /layout ImageFrame>

%<FrameLayout ImageFrame /marginWidth $FrameMargin /fitWidth 2 /fitHeight 2>
%<+ /layout Image /marginHeight $FrameMargin>

%<ImageLayout Image /widthPriority 5 /imageWidth $MapImageWidth /imageHeight>
%<+ $MapImageHeight /heightPriority 5>
%</ImageLayout>

%</FrameLayout>

%</GridLayout>

%<Chapter OwnerReport>
/OwnerReport {

%<Part none/>

} bd
%</Chapter>

%<Chapter WriteOwner>
/WriteOwner {
	pop

%<Part none/>

} bd
%</Chapter>

%<Chapter AdjustReport>
/AdjustReport {

%<Part none/>

} bd
%</Chapter>

%<Chapter WriteAdjust>
/WriteAdjust {
	pop

%<Part none/>

} bd
%</Chapter>

%<Chapter RetreatReport>
/RetreatReport {

%<Part none/>

} bd
%</Chapter>

%<Chapter WriteRetreat>
/WriteRetreat {
	pop

%<Part none/>

} bd
%</Chapter>

%<Chapter OrderReport>
/OrderReport {

%<Part none/>

} bd
%</Chapter>

%<Chapter WriteOrder>
/WriteOrder {
	pop

%<Part none/>

} bd
%</Chapter>

%<Chapter DrawTitle>
/DrawTitle {
	pop

%<Part none/>

} bd
%</Chapter>

%<Chapter SwitchToTextMode>
/SwitchToTextMode {
	InTextMode {
		FinishReport /FinishReport { } def
	} {
		r /InTextMode true def
	} ifelse

%<Part none/>

} bd
%</Chapter>

%<Chapter SwitchToMapMode>
/SwitchToMapMode {
	InTextMode {
		FinishReport /FinishReport { } def
		/InTextMode false def
		s
		%$ $ClipAndTransformToMap
		.839 .839 x 52.46 29.2 t ClipMap
		ArrowColor
		OkOrder
	} if

%<Part none/>

} bd
%</Chapter>

%<Chapter FrameMap>
/FrameMap {
	s
	/fk {
		p
		%$ s {4 $MapDrawingScale mul 2 mul}# w Black k r
		s 9.53 w Black k r
		clipsave clip k cliprestore
	} bd
	%$ $MapImageScale#4 dup x {$MapLeft $MapImageLeft $MapImageScale mul sub $MapDrawingScale mul}# {$MapBottom $MapImageBottom $MapImageScale mul sub $MapDrawingScale mul}# t
	.839 .839 x 52.46 29.2 t
	%$ {1 $MapDrawingScale mul 2 mul}# w LandBrown
	2.38 w LandBrown
	ShapeRim

%<Part none/>

	r
} bd
%</Chapter>

%</FrameLayout>

%<Chapter PaintMap>
/PaintMap {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s

%<Sketch PaintBackGround>
	SeaBlue clippath fill
%</Sketch>

%<Act PaintOutlines>
	IncludeContinent
	IncludeProvince
	IncludeNation
	IncludeLake
%</Act>

	r
} bd
%</Chapter>

%<Chapter DrawMap>
/DrawMap {
	PageSetup
	DrawLayoutBorders
	PaintMap
	DrawSupplies
	PopulateTerritories

%<Part none/>

} bd
%</Chapter>

%<Chapter DrawSupplies>
/DrawSupplies {
	%$ $SwitchToMapMode
	SwitchToMapMode
	UNOWNEDCENTER

%<Part none/>

	VisitSupplies
} bd
%</Chapter>

%<Chapter PopulateTerritories>
/PopulateTerritories {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s
	UNOWNED

%<Part none/>

	VisitTerritories
	r
} bd
%</Chapter>

%<Chapter DrawAliases>
/DrawAliases {
	NameTerritories

%<Part none/>

} bd
%</Chapter>

%<Chapter NameTerritories>
/NameTerritories {
	%$ $SwitchToMapMode
	SwitchToMapMode
	s

%<Part none/>

	VisitTerritories
	r
} bd
%</Chapter>

%<Chapter ClipMap>
/ClipMap {
	/fk { p } bd
	ShapeRim

%<Part none/>

	clip n
} bd
%</Chapter>

%<Chapter IncludeContinent>
/IncludeContinent {

%<Play SwitchScale0 /$MapDrawingScale {$GlobalMapDrawingScale 6 mul}>
%<+ /$ScaleFactor .16666667>
	s
	%$ $ScaleFactor#4 dup x
	.1667 .1667 x
	/fk {
		p
		s LandBrown f r
		k
	} bd
	%$ {1 $MapDrawingScale mul}# w BorderBlack
	6 w BorderBlack
	OutlineContinentWhite

%<Part none/>

	r
%</Play>

} bd
%</Chapter>

%<Chapter IncludeProvince>
/IncludeProvince {

%<Play SwitchScale0 /$MapDrawingScale {$GlobalMapDrawingScale 6 mul}>
%<+ /$ScaleFactor .16666667>
	s
	%$ $ScaleFactor#4 dup x
	.1667 .1667 x
	/fk { k } bd
	%$ {1 $MapDrawingScale mul}# w BorderBlack
	6 w BorderBlack
	OutlineBoundaryLime

%<Part none/>

	r
%</Play>

} bd
%</Chapter>

%<Chapter IncludeNation>
/IncludeNation {

%<Play SwitchScale0 /$MapDrawingScale {$GlobalMapDrawingScale 6 mul}>
%<+ /$ScaleFactor .16666667>
	s
	%$ $ScaleFactor#4 dup x
	.1667 .1667 x
	/fk { k } bd
	%$ {1 $MapDrawingScale mul}# w BorderBlack
	6 w BorderBlack
	OutlineBoundaryRed
	OutlineBoundaryCyan

%<Part none/>

	r
%</Play>

} bd
%</Chapter>

%<Chapter IncludeLake>
/IncludeLake {

%<Play SwitchScale0 /$MapDrawingScale {$GlobalMapDrawingScale 6 mul}>
%<+ /$ScaleFactor .16666667>
	s
	%$ $ScaleFactor#4 dup x
	.1667 .1667 x
	/fk {
		p
		s SeaBlue f r
		k
	} bd
	%$ {1 $MapDrawingScale mul}# w BorderBlack
	6 w BorderBlack
	OutlineContinentGrey

%<Part none/>

	r
%</Play>

} bd
%</Chapter>

%</Play>

%<Play Outlines /define bd>

%<Chapter OutlineContinentWhite>
/OutlineContinentWhite {

%<Image Outline /operator fk /roundingScale 6 /bbox {0 0 5034 4026}>
	2058 3564 m
	2070 3558 l
	2058 3564 l
	fk
	2556 3144 m
	2562 3138 l
	2556 3144 l
	fk
	2370 3078 m
	2370 3072 l
	2394 3078 l
	2370 3078 l
	fk
	2364 3066 m
	2370 3060 l
	2364 3066 l
	fk
	2328 3048 m
	2328 3042 l
	2358 3060 l
	2328 3048 l
	fk
	2238 2952 m
	2251 2933 2241 2874 2202 2874 c
	2202 2880 l
	2231 2884 2232 2914 2214 2928 c
	2178 2892 l
	2196 2868 l
	2149 2852 2099 2867 2058 2826 c
	2066 2847 2031 2838 2010 2838 c
	2010 2832 l
	2022 2826 l
	2004 2808 l
	1974 2826 l
	1969 2817 1896 2819 1884 2844 c
	1878 2844 l
	1878 2814 l
	1872 2844 l
	1842 2850 l
	1842 2838 l
	1782 2832 l
	1794 2856 l
	1716 2838 l
	1703 2817 1663 2816 1650 2844 c
	1680 2850 l
	1698 2826 1756 2846 1770 2874 c
	1692 2850 l
	1698 2865 1630 2883 1614 2910 c
	1585 2955 1487 2960 1434 2934 c
	1410 2922 1397 2895 1374 2886 c
	1335 2869 1296 2885 1272 2844 c
	1266 2844 l
	1248 2856 l
	1182 2796 l
	1326 2850 l
	1300 2811 1270 2821 1236 2796 c
	1184 2758 1148 2700 1098 2670 c
	1081 2660 1073 2675 1056 2652 c
	994 2570 972 2473 948 2376 c
	942 2353 923 2332 918 2310 c
	897 2229 883 2148 864 2070 c
	848 2007 864 1942 864 1878 c
	852 1878 l
	852 1908 l
	840 1908 l
	840 1698 902 1483 990 1308 c
	1010 1267 1041 1152 1092 1152 c
	1083 1201 1042 1251 1020 1296 c
	965 1405 953 1542 924 1662 c
	917 1689 894 1715 894 1740 c
	912 1740 l
	870 1872 l
	876 2082 l
	900 2076 l
	918 2226 l
	942 2220 l
	960 2184 l
	966 2184 l
	966 2207 984 2249 972 2274 c
	945 2326 955 2448 1026 2478 c
	1042 2484 1061 2457 1086 2466 c
	1102 2416 1096 2352 1074 2298 c
	1065 2278 1080 2272 1086 2262 c
	1100 2232 1075 2177 1068 2154 c
	1062 2138 1075 2114 1068 2100 c
	1058 2080 1042 2090 1032 2082 c
	1018 2072 1008 2033 1008 2016 c
	1044 2016 1049 2050 1080 2058 c
	1107 2064 1147 1968 1146 1962 c
	1164 1944 l
	1170 1944 l
	1170 1962 l
	1176 1962 l
	1182 1944 l
	1188 1962 l
	1206 1956 l
	1236 1968 l
	1218 1932 l
	1236 1944 l
	1248 1914 l
	1254 1914 l
	1266 1926 l
	1296 1848 l
	1302 1848 l
	1328 1892 1380 1784 1392 1770 c
	1420 1734 1440 1786 1440 1812 c
	1446 1812 l
	1453 1790 1448 1776 1476 1776 c
	1446 1848 l
	1398 1890 l
	1494 1818 l
	1530 1710 l
	1596 1662 l
	1602 1662 l
	1626 1680 l
	1626 1722 l
	1596 1746 l
	1638 1722 l
	1638 1761 1634 1809 1686 1818 c
	1722 1866 l
	1716 1884 l
	1662 1896 l
	1674 1950 l
	1728 1950 l
	1752 2010 l
	1740 2034 l
	1752 2070 l
	1650 2070 l
	1628 2006 1579 2037 1554 2076 c
	1470 2052 l
	1477 2073 1483 2112 1518 2124 c
	1531 2128 1556 2115 1566 2130 c
	1572 2139 1561 2161 1566 2172 c
	1577 2199 1601 2213 1614 2232 c
	1623 2245 1620 2275 1626 2292 c
	1668 2292 l
	1679 2361 1765 2255 1770 2244 c
	1806 2280 l
	1797 2263 1773 2237 1800 2232 c
	1794 2208 l
	1818 2196 l
	1848 2238 l
	1836 2184 l
	1854 2190 l
	1860 2184 l
	1848 2167 1841 2160 1866 2160 c
	1866 2154 l
	1851 2151 1847 2139 1866 2130 c
	1881 2121 1905 2136 1926 2130 c
	1944 2166 l
	1938 2172 l
	1872 2190 l
	1872 2196 l
	1926 2202 l
	1926 2208 l
	1908 2214 l
	1908 2226 l
	1962 2232 l
	1968 2232 l
	2010 2250 l
	1998 2274 l
	1956 2274 l
	1943 2248 1913 2248 1908 2280 c
	1878 2286 l
	1878 2292 l
	1902 2292 1926 2282 1926 2310 c
	1908 2298 l
	1968 2406 l
	1962 2406 l
	1956 2388 l
	1950 2388 l
	1920 2424 l
	1956 2411 1974 2444 1980 2478 c
	1998 2466 l
	2118 2538 l
	2130 2586 l
	2136 2586 l
	2136 2562 l
	2142 2562 l
	2142 2652 2188 2606 2244 2634 c
	2293 2658 2323 2666 2376 2658 c
	2394 2694 l
	2454 2736 l
	2454 2754 l
	2376 2784 l
	2376 2790 l
	2400 2790 l
	2400 2796 l
	2388 2796 l
	2388 2802 l
	2415 2802 2453 2784 2460 2826 c
	2448 2844 l
	2376 2832 l
	2370 2862 l
	2410 2875 2422 2885 2430 2928 c
	2400 2934 l
	2400 2940 l
	2418 2940 l
	2418 2946 l
	2388 2958 l
	2382 2940 l
	2358 2982 l
	2310 2958 l
	2310 2970 l
	2292 2958 l
	2286 2988 l
	2322 3036 l
	2238 2952 l
	fk
	3018 2994 m
	2970 3001 2952 2984 2916 2958 c
	2910 2970 l
	2904 2970 l
	2910 2922 l
	2870 2908 2800 2865 2772 2922 c
	2652 2880 l
	2634 2898 l
	2634 2865 2639 2842 2670 2832 c
	2670 2826 l
	2638 2831 2610 2853 2610 2802 c
	2532 2850 l
	2496 2820 l
	2500 2797 2517 2790 2544 2790 c
	2538 2808 l
	2544 2808 l
	2566 2739 2624 2713 2688 2682 c
	2688 2712 l
	2708 2715 2718 2707 2718 2682 c
	2790 2676 l
	2796 2652 l
	2796 2646 l
	2774 2633 2786 2610 2808 2598 c
	2835 2581 2855 2573 2838 2538 c
	2880 2532 l
	2862 2520 l
	2866 2494 2890 2463 2910 2496 c
	2916 2496 l
	2934 2490 l
	2934 2469 2930 2466 2952 2466 c
	2946 2442 l
	2982 2442 l
	2970 2244 l
	2988 2250 l
	3000 2220 l
	2974 2224 2963 2248 2940 2256 c
	2892 2271 2894 2194 2892 2184 c
	2880 2196 l
	2868 2162 2919 2160 2946 2160 c
	2946 2154 l
	2922 2154 l
	2936 2110 2918 2058 2988 2058 c
	2928 1986 3043 2014 3072 1986 c
	3024 2004 l
	3000 1974 l
	3006 1950 l
	3036 1962 l
	3023 1937 3017 1940 2994 1944 c
	3008 1915 3056 1892 3084 1920 c
	3084 1898 3170 1811 3096 1824 c
	3145 1883 3006 1901 2976 1932 c
	2970 1932 l
	2938 1893 2994 1865 3018 1842 c
	3024 1842 l
	3054 1854 l
	3060 1830 l
	2982 1794 l
	3006 1758 l
	2988 1764 l
	2976 1710 l
	2931 1710 2934 1657 2940 1626 c
	2914 1621 2905 1627 2910 1650 c
	2904 1656 l
	2880 1650 l
	2922 1590 l
	2898 1590 l
	2893 1561 2886 1553 2910 1530 c
	2868 1524 l
	2892 1506 l
	2892 1500 l
	2863 1490 2832 1490 2832 1530 c
	2796 1542 l
	2796 1548 l
	2820 1548 2915 1555 2880 1602 c
	2871 1612 2850 1604 2838 1608 c
	2798 1617 2767 1608 2730 1608 c
	2742 1626 l
	2724 1632 l
	2724 1614 l
	2718 1614 l
	2712 1632 l
	2706 1632 l
	2694 1596 l
	2688 1596 l
	2676 1608 l
	2664 1596 l
	2664 1578 l
	2652 1584 l
	2652 1560 l
	2634 1566 l
	2617 1532 2565 1468 2586 1428 c
	2570 1434 2550 1414 2550 1392 c
	2556 1392 l
	2562 1410 l
	2568 1410 l
	2490 1350 l
	2490 1302 l
	2514 1308 l
	2514 1302 l
	2488 1293 2493 1281 2490 1260 c
	2519 1245 2548 1247 2556 1284 c
	2628 1182 l
	2631 1204 2641 1195 2652 1206 c
	2669 1223 2649 1253 2652 1266 c
	2654 1282 2678 1290 2646 1290 c
	2646 1296 l
	2682 1302 l
	2682 1314 l
	2620 1344 2664 1374 2688 1422 c
	2707 1460 2673 1486 2736 1476 c
	2728 1433 2694 1408 2712 1368 c
	2719 1350 2722 1318 2754 1326 c
	2790 1335 2790 1368 2832 1362 c
	2832 1350 l
	2820 1332 l
	2754 1308 l
	2778 1290 l
	2778 1254 l
	2717 1264 2740 1231 2748 1188 c
	2724 1188 l
	2724 1170 l
	2695 1170 2640 1172 2640 1134 c
	2607 1166 2608 1134 2580 1140 c
	2539 1148 2560 1196 2556 1224 c
	2550 1224 l
	2543 1212 2522 1207 2526 1188 c
	2527 1176 2548 1152 2544 1140 c
	2528 1097 2454 1146 2454 1074 c
	2382 1038 l
	2340 1050 l
	2346 1026 l
	2286 1032 l
	2346 966 l
	2316 906 l
	2172 942 l
	2136 858 l
	2142 816 l
	2151 812 2174 814 2184 810 c
	2200 801 2190 784 2208 780 c
	2224 775 2305 774 2322 786 c
	2343 800 2339 836 2370 852 c
	2382 858 2399 848 2412 858 c
	2427 869 2418 893 2436 900 c
	2451 905 2478 880 2496 888 c
	2510 893 2529 916 2544 918 c
	2567 919 2575 886 2592 876 c
	2631 851 2715 850 2706 792 c
	2712 792 l
	2730 828 l
	2712 838 2718 843 2736 852 c
	2736 858 l
	2692 858 2569 918 2640 954 c
	2646 936 l
	2688 912 l
	2772 888 l
	2778 852 l
	2838 828 l
	2832 810 l
	2868 798 l
	2868 822 l
	2844 828 l
	2844 834 l
	2868 834 l
	2868 840 l
	2862 858 l
	2844 876 l
	2880 870 l
	2868 888 l
	2976 924 l
	2976 930 l
	2934 954 l
	2952 972 l
	2970 1056 l
	3030 1074 l
	3024 1050 l
	3048 1038 l
	3066 1062 l
	3066 1068 l
	3039 1094 3086 1127 3114 1146 c
	3102 1122 l
	3102 1116 l
	3102 1080 l
	3120 1080 3219 1100 3222 1068 c
	3223 1049 3174 1022 3162 1014 c
	3137 997 3099 1009 3084 1002 c
	3045 984 3029 949 2988 936 c
	3000 924 l
	2928 882 l
	2951 878 2947 857 2964 846 c
	2987 830 3042 845 3042 870 c
	3102 870 3115 894 3162 918 c
	3162 883 3179 857 3168 822 c
	3156 788 3117 789 3090 780 c
	3071 773 3059 752 3042 744 c
	3020 733 2981 731 2958 726 c
	2920 716 2896 737 2862 726 c
	2819 711 2840 674 2808 666 c
	2772 657 2718 682 2688 690 c
	2669 694 2648 684 2634 684 c
	2616 684 2592 698 2574 702 c
	2574 714 l
	2598 726 l
	2598 732 l
	2574 768 l
	2532 756 l
	2346 750 l
	2244 750 l
	2196 768 l
	2166 744 l
	2100 732 l
	2070 690 l
	1986 690 l
	1872 654 l
	1872 624 1895 590 1842 582 c
	1872 521 1941 481 2004 450 c
	2165 369 2393 360 2586 360 c
	2580 342 l
	2884 342 3194 451 3426 606 c
	3499 655 3648 752 3648 852 c
	3642 852 l
	3621 810 3538 734 3498 714 c
	3480 705 3471 717 3456 714 c
	3402 700 3363 671 3306 684 c
	3297 685 3290 703 3282 708 c
	3270 713 3251 702 3240 708 c
	3214 720 3141 741 3126 768 c
	3175 751 3219 764 3276 750 c
	3305 742 3314 763 3336 732 c
	3353 734 3411 755 3438 744 c
	3452 737 3460 719 3480 726 c
	3511 736 3542 784 3564 804 c
	3626 860 3706 961 3732 1038 c
	3738 1057 3735 1085 3744 1110 c
	3642 1074 l
	3633 1024 3612 987 3570 966 c
	3570 985 3568 986 3552 978 c
	3564 960 l
	3462 966 l
	3473 1035 3555 1003 3600 1038 c
	3616 1050 3626 1086 3642 1098 c
	3655 1107 3659 1092 3672 1098 c
	3731 1125 3767 1228 3804 1278 c
	3831 1315 3871 1313 3888 1362 c
	3894 1362 l
	3888 1332 l
	3894 1332 l
	3915 1363 3924 1368 3918 1410 c
	3942 1410 3957 1383 3984 1392 c
	4041 1411 4101 1466 4086 1530 c
	4081 1548 4061 1550 4056 1566 c
	4051 1578 4062 1631 4062 1650 c
	4062 1728 4039 1797 4062 1866 c
	4038 1872 l
	4064 1893 4085 1962 4128 1962 c
	4116 2034 l
	4146 2070 l
	4164 2070 l
	4170 2052 l
	4176 2052 l
	4176 2094 l
	4170 2094 l
	4170 2076 l
	4164 2076 l
	4146 2112 l
	4152 2148 l
	4158 2244 l
	4122 2364 l
	4110 2364 l
	4092 2274 l
	4080 2274 l
	4043 2384 4019 2499 3948 2592 c
	3933 2610 3903 2655 3876 2646 c
	3846 2670 l
	3852 2634 l
	3846 2634 l
	3834 2664 l
	3828 2664 l
	3828 2646 l
	3816 2652 l
	3804 2592 l
	3726 2652 l
	3762 2586 l
	3756 2538 l
	3736 2541 3672 2603 3672 2628 c
	3702 2622 l
	3660 2700 l
	3690 2694 l
	3684 2748 l
	3696 2736 l
	3726 2748 l
	3712 2813 3648 2812 3648 2736 c
	3522 2784 l
	3535 2823 3492 2833 3462 2844 c
	3402 2863 3324 2861 3270 2832 c
	3227 2808 3244 2766 3282 2760 c
	3288 2748 l
	3276 2736 l
	3288 2706 l
	3192 2730 l
	3126 2730 l
	3012 2814 l
	3018 2832 l
	2982 2844 l
	2988 2826 l
	2916 2814 l
	2880 2826 l
	2898 2850 l
	2844 2850 l
	2844 2832 l
	2814 2838 l
	2814 2844 l
	2837 2847 2835 2867 2856 2874 c
	2895 2887 2942 2883 2976 2892 c
	3027 2904 3052 2971 3060 3018 c
	3038 3018 3021 3015 3018 2994 c
	fk
	3510 3018 m
	3426 2964 l
	3444 2970 l
	3445 2963 3445 2950 3456 2952 c
	3468 2953 3469 2966 3480 2970 c
	3509 2979 3555 2949 3552 2934 c
	3672 2856 l
	3648 2886 l
	3672 2880 l
	3630 2916 l
	3648 2886 l
	3626 2907 3613 2913 3618 2940 c
	3582 2946 l
	3577 2973 3536 3013 3510 3018 c
	fk
	3336 2994 m
	3360 2928 l
	3402 2946 l
	3438 2928 l
	3444 2934 l
	3438 2958 l
	3432 2958 l
	3432 2940 l
	3399 2956 3379 3015 3336 2994 c
	fk
	2214 2964 m
	2238 2976 l
	2214 2964 l
	fk
	2424 2964 m
	2442 2952 l
	2424 2964 l
	fk
	2220 2958 m
	2226 2952 l
	2220 2958 l
	fk
	2862 2922 m
	2874 2916 l
	2862 2922 l
	fk
	3324 2922 m
	3304 2883 3294 2897 3264 2904 c
	3210 2808 l
	3216 2808 l
	3222 2826 l
	3258 2807 3312 2892 3348 2910 c
	3324 2922 l
	fk
	1872 2886 m
	1878 2868 l
	1896 2880 l
	1872 2886 l
	fk
	2478 2886 m
	2478 2880 l
	2508 2874 l
	2508 2880 l
	2478 2886 l
	fk
	3678 2874 m
	3685 2851 3684 2830 3714 2826 c
	3702 2850 l
	3720 2856 l
	3678 2874 l
	fk
	1902 2856 m
	1902 2850 l
	1920 2850 l
	1902 2856 l
	fk
	1962 2856 m
	1980 2844 l
	1980 2850 l
	1962 2856 l
	fk
	1944 2850 m
	1938 2832 l
	1954 2835 1952 2841 1944 2850 c
	fk
	1962 2838 m
	1962 2826 l
	1974 2826 l
	1962 2838 l
	fk
	1992 2826 m
	2004 2820 l
	1992 2826 l
	fk
	3024 2826 m
	3030 2820 l
	3024 2826 l
	fk
	3972 2820 m
	3978 2802 l
	3984 2802 l
	3972 2820 l
	fk
	3990 2796 m
	3996 2784 l
	3990 2796 l
	fk
	3972 2790 m
	3978 2778 l
	3972 2790 l
	fk
	1164 2784 m
	1152 2766 l
	1164 2784 l
	fk
	3996 2784 m
	4002 2772 l
	3996 2784 l
	fk
	3984 2748 m
	3990 2742 l
	3984 2748 l
	fk
	3972 2712 m
	3972 2675 3985 2672 4014 2658 c
	4020 2682 l
	4020 2688 l
	4008 2700 l
	3990 2694 l
	3972 2712 l
	fk
	2706 2688 m
	2712 2682 l
	2706 2688 l
	fk
	2592 2682 m
	2574 2676 l
	2574 2670 l
	2590 2670 2605 2668 2592 2682 c
	fk
	3906 2682 m
	3948 2652 l
	3944 2675 3929 2682 3906 2682 c
	fk
	2160 2616 m
	2154 2598 l
	2160 2598 l
	2160 2616 l
	fk
	4086 2586 m
	4092 2580 l
	4086 2586 l
	fk
	4092 2574 m
	4098 2562 l
	4092 2574 l
	fk
	912 2532 m
	918 2526 l
	912 2532 l
	fk
	2106 2490 m
	2118 2424 l
	2112 2424 l
	2100 2448 l
	2094 2448 l
	2076 2430 l
	2076 2460 l
	2028 2412 l
	2046 2466 l
	2019 2466 1986 2444 1980 2418 c
	1977 2408 1986 2384 1986 2382 c
	1979 2363 1956 2371 1956 2340 c
	1962 2340 l
	1980 2352 l
	1974 2322 l
	2010 2346 l
	2082 2322 l
	2082 2352 l
	2040 2364 l
	2070 2364 l
	2070 2382 l
	2089 2385 2094 2385 2094 2406 c
	2112 2400 l
	2118 2418 l
	2124 2400 l
	2147 2403 2176 2425 2184 2448 c
	2148 2490 l
	2106 2490 l
	fk
	2784 2484 m
	2796 2460 l
	2802 2460 l
	2784 2484 l
	fk
	2856 2478 m
	2868 2460 l
	2856 2478 l
	fk
	2808 2454 m
	2826 2406 l
	2850 2412 l
	2820 2454 l
	2808 2454 l
	fk
	4056 2406 m
	4068 2358 l
	4074 2358 l
	4056 2406 l
	fk
	2208 2400 m
	2201 2381 2199 2356 2220 2346 c
	2208 2400 l
	fk
	2160 2382 m
	2157 2365 2142 2338 2142 2370 c
	2136 2370 l
	2130 2310 l
	2172 2322 l
	2172 2328 l
	2148 2328 l
	2148 2346 l
	2170 2346 2185 2339 2190 2364 c
	2160 2382 l
	fk
	1938 2310 m
	1926 2280 l
	1956 2292 l
	1956 2304 l
	1950 2310 l
	1938 2310 l
	fk
	2010 2292 m
	2010 2274 l
	2026 2265 2036 2264 2046 2280 c
	2052 2280 l
	2070 2262 l
	2070 2292 l
	2058 2289 2037 2298 2058 2304 c
	2010 2292 l
	fk
	2130 2280 m
	2106 2268 l
	2110 2246 2126 2250 2148 2250 c
	2130 2280 l
	fk
	2220 2268 m
	2220 2256 l
	2232 2256 l
	2232 2268 l
	2220 2268 l
	fk
	2196 2244 m
	2214 2262 l
	2196 2244 l
	fk
	2016 2256 m
	2064 2214 l
	2070 2244 l
	2016 2256 l
	fk
	2094 2244 m
	2106 2226 l
	2112 2232 l
	2106 2244 l
	2094 2244 l
	fk
	2136 2220 m
	2154 2238 l
	2136 2220 l
	fk
	2178 2232 m
	2196 2220 l
	2178 2232 l
	fk
	2076 2130 m
	2100 2124 l
	2121 2166 2090 2177 2136 2208 c
	2083 2260 2076 2151 2076 2130 c
	fk
	2214 2190 m
	2208 2208 l
	2184 2202 l
	2184 2184 l
	2214 2154 l
	2190 2142 l
	2190 2172 l
	2184 2172 l
	2178 2154 l
	2160 2160 l
	2154 2118 l
	2202 2106 l
	2196 2124 l
	2232 2088 l
	2274 2076 l
	2316 2070 l
	2304 2148 l
	2286 2142 l
	2298 2154 l
	2298 2160 l
	2286 2178 l
	2256 2172 l
	2262 2148 l
	2256 2148 l
	2244 2160 l
	2268 2124 l
	2226 2148 l
	2226 2154 l
	2238 2166 l
	2214 2160 l
	2268 2196 l
	2243 2212 2224 2221 2214 2190 c
	fk
	1968 2202 m
	1950 2112 l
	1968 2112 l
	1920 2076 l
	1932 2003 1854 2048 1830 2028 c
	1830 2046 1830 2046 1812 2046 c
	1818 2082 l
	1806 2082 l
	1812 2022 l
	1777 2015 1764 1951 1764 1914 c
	1770 1914 l
	1800 1956 l
	1794 1908 l
	1829 1908 1848 1947 1848 1974 c
	1860 1962 l
	1866 1962 l
	1878 1974 l
	1878 1932 l
	1854 1914 l
	1872 1920 l
	1902 1908 l
	1898 1919 1923 2019 1944 1986 c
	1950 1986 l
	1950 2010 l
	1956 2010 l
	1968 1992 l
	1962 2010 l
	1980 2010 l
	1980 2016 l
	1968 2040 l
	1998 2040 l
	1986 2052 l
	2022 2088 l
	2022 2100 l
	2004 2106 l
	2004 2130 l
	2046 2136 l
	2046 2176 2004 2164 1980 2160 c
	1980 2166 l
	2010 2176 2021 2181 2052 2166 c
	2042 2223 1999 2196 1968 2202 c
	fk
	2130 2190 m
	2124 2154 l
	2124 2124 l
	2142 2118 l
	2154 2143 2158 2164 2142 2190 c
	2130 2190 l
	fk
	1782 2184 m
	1770 2172 l
	1788 2148 l
	1788 2142 l
	1776 2112 l
	1782 2112 l
	1830 2178 l
	1782 2184 l
	fk
	2838 2184 m
	2838 2163 2842 2163 2862 2160 c
	2856 2184 l
	2838 2184 l
	fk
	2160 2178 m
	2166 2172 l
	2160 2178 l
	fk
	2910 2160 m
	2916 2154 l
	2910 2160 l
	fk
	4182 2160 m
	4182 2106 l
	4188 2106 l
	4182 2160 l
	fk
	1740 2154 m
	1758 2130 l
	1740 2154 l
	fk
	2808 2136 m
	2778 2136 l
	2796 2118 l
	2802 2118 l
	2820 2130 2838 2121 2838 2154 c
	2808 2136 l
	fk
	2028 2094 m
	2052 2124 l
	2027 2124 2028 2116 2028 2094 c
	fk
	966 2118 m
	966 1974 l
	948 1920 l
	960 1842 l
	966 1842 l
	978 2070 l
	966 2118 l
	fk
	4176 2106 m
	4182 2094 l
	4176 2106 l
	fk
	2178 2088 m
	2172 2040 l
	2154 2070 l
	2148 2070 l
	2130 2052 l
	2132 2034 2158 2012 2148 1992 c
	2131 1958 2086 1902 2046 1902 c
	2064 1890 l
	2046 1842 l
	2040 1842 l
	2034 1878 l
	2028 1878 l
	2034 1836 l
	1986 1818 l
	1986 1800 l
	1974 1800 l
	1968 1806 l
	1980 1824 l
	1962 1829 1953 1826 1950 1806 c
	1932 1812 l
	1902 1776 l
	1902 1770 l
	1920 1752 l
	1884 1752 l
	1880 1729 1826 1665 1872 1656 c
	1860 1626 l
	1872 1608 l
	1878 1608 l
	1986 1674 l
	2046 1668 l
	2031 1624 2111 1658 2130 1668 c
	2130 1626 2196 1639 2226 1644 c
	2221 1670 2204 1667 2184 1674 c
	2184 1692 l
	2232 1698 l
	2232 1662 l
	2250 1662 l
	2238 1722 l
	2250 1722 l
	2232 1746 l
	2298 1728 l
	2286 1752 l
	2328 1770 l
	2328 1812 l
	2352 1806 l
	2382 1896 l
	2407 1896 2430 1904 2430 1932 c
	2382 1920 l
	2394 1932 l
	2394 1938 l
	2394 1944 l
	2364 1962 l
	2412 1962 l
	2394 2010 l
	2358 1998 l
	2364 2022 l
	2358 2022 l
	2328 2004 l
	2334 2022 l
	2316 2016 l
	2316 2052 l
	2304 2040 l
	2298 2040 l
	2244 2070 l
	2236 2025 2200 2084 2178 2088 c
	fk
	1878 2064 m
	1902 2064 l
	1896 2082 l
	1878 2064 l
	fk
	2736 2004 m
	2742 1992 l
	2736 2004 l
	fk
	2736 1986 m
	2742 1980 l
	2736 1986 l
	fk
	2850 1956 m
	2856 1818 l
	2874 1818 l
	2880 1764 l
	2904 1772 2934 1750 2934 1788 c
	2874 1818 l
	2862 1866 l
	2862 1956 l
	2850 1956 l
	fk
	2988 1950 m
	2994 1944 l
	2988 1950 l
	fk
	2700 1944 m
	2706 1932 l
	2700 1944 l
	fk
	2688 1938 m
	2694 1932 l
	2688 1938 l
	fk
	930 1926 m
	936 1914 l
	930 1926 l
	fk
	2010 1872 m
	2010 1848 l
	2022 1872 l
	2010 1872 l
	fk
	2574 1866 m
	2574 1860 l
	2610 1848 l
	2616 1872 l
	2574 1866 l
	fk
	2568 1854 m
	2568 1830 l
	2562 1830 l
	2538 1842 l
	2550 1812 l
	2574 1824 l
	2562 1800 2552 1779 2580 1770 c
	2592 1836 l
	2568 1854 l
	fk
	942 1830 m
	984 1674 l
	966 1800 l
	954 1794 l
	942 1830 l
	fk
	2604 1794 m
	2622 1806 l
	2604 1794 l
	fk
	2964 1794 m
	2958 1782 l
	2970 1782 l
	2964 1794 l
	fk
	1488 1776 m
	1488 1752 l
	1494 1752 l
	1488 1776 l
	fk
	1356 1764 m
	1416 1686 l
	1431 1689 1436 1689 1440 1668 c
	1446 1668 l
	1458 1692 l
	1418 1692 1410 1726 1416 1752 c
	1410 1752 l
	1404 1734 l
	1393 1755 1382 1777 1356 1764 c
	fk
	2304 1752 m
	2310 1746 l
	2304 1752 l
	fk
	1494 1746 m
	1500 1740 l
	1494 1746 l
	fk
	2244 1740 m
	2250 1734 l
	2244 1740 l
	fk
	2262 1740 m
	2268 1728 l
	2262 1740 l
	fk
	1428 1728 m
	1434 1716 l
	1428 1728 l
	fk
	2256 1722 m
	2256 1710 l
	2268 1710 l
	2268 1722 l
	2256 1722 l
	fk
	2952 1722 m
	2958 1710 l
	2952 1722 l
	fk
	2910 1698 m
	2910 1686 l
	2922 1686 l
	2922 1698 l
	2910 1698 l
	fk
	2208 1686 m
	2214 1680 l
	2208 1686 l
	fk
	1482 1674 m
	1493 1651 1494 1620 1524 1620 c
	1524 1614 l
	1512 1602 l
	1530 1578 l
	1536 1578 l
	1560 1596 l
	1548 1650 l
	1590 1650 l
	1590 1656 l
	1482 1674 l
	fk
	984 1638 m
	990 1602 l
	996 1602 l
	984 1638 l
	fk
	4158 1626 m
	4170 1620 l
	4158 1626 l
	fk
	2682 1620 m
	2688 1614 l
	2682 1620 l
	fk
	1518 1572 m
	1518 1554 l
	1536 1554 l
	1536 1572 l
	1518 1572 l
	fk
	4110 1566 m
	4098 1524 l
	4104 1524 l
	4110 1566 l
	fk
	2160 1548 m
	2184 1536 l
	2184 1558 2177 1556 2160 1548 c
	fk
	2172 1530 m
	2166 1524 l
	2154 1506 l
	2160 1474 2237 1441 2262 1482 c
	2267 1491 2257 1509 2256 1518 c
	2172 1530 l
	fk
	2736 1296 m
	2742 1290 l
	2736 1296 l
	fk
	2670 1290 m
	2676 1284 l
	2670 1290 l
	fk
	2736 1284 m
	2736 1272 l
	2748 1284 l
	2736 1284 l
	fk
	2298 1278 m
	2304 1266 l
	2298 1278 l
	fk
	2304 1236 m
	2304 1218 l
	2304 1212 l
	2333 1207 2313 1198 2310 1182 c
	2340 1182 l
	2340 1140 l
	2310 1140 l
	2316 1122 l
	2298 1116 l
	2298 1110 l
	2334 1098 l
	2334 1092 l
	2280 1080 l
	2280 1074 l
	2400 1074 l
	2394 1092 l
	2412 1116 l
	2340 1206 l
	2340 1218 l
	2360 1221 2364 1227 2364 1248 c
	2340 1248 l
	2352 1272 l
	2318 1272 2322 1257 2304 1236 c
	fk
	2688 1248 m
	2682 1236 l
	2688 1248 l
	fk
	2556 1230 m
	2562 1224 l
	2556 1230 l
	fk
	2256 1206 m
	2250 1182 l
	2226 1194 l
	2232 1170 l
	2232 1158 l
	2220 1158 l
	2226 1146 l
	2214 1128 l
	2226 1128 2257 1122 2268 1128 c
	2286 1138 2274 1149 2280 1164 c
	2292 1194 2293 1199 2256 1206 c
	fk
	2574 1188 m
	2592 1170 l
	2598 1194 l
	2574 1188 l
	fk
	2556 1176 m
	2568 1170 l
	2556 1176 l
	fk
	3078 1080 m
	3072 1068 l
	3084 1068 l
	3078 1080 l
	fk
	2538 870 m
	2556 852 l
	2556 876 l
	2538 870 l
	fk
	3120 870 m
	3096 852 l
	3096 846 l
	3113 848 3134 855 3120 870 c
	fk
	2736 852 m
	2736 846 l
	2754 840 l
	2736 852 l
	fk
	2532 840 m
	2538 804 l
	2567 804 2566 824 2556 846 c
	2532 840 l
	fk
	2880 840 m
	2868 834 l
	2868 828 l
	2884 828 2890 829 2880 840 c
	fk
	2412 822 m
	2424 816 l
	2412 822 l
	fk
	2634 786 m
	2694 768 l
	2694 792 l
	2634 786 l
	fk
	2928 792 m
	2934 786 l
	2928 792 l
	fk
	2892 786 m
	2892 780 l
	2916 780 l
	2892 786 l
	fk
%</Image>

} bd
%</Chapter>

%<Chapter OutlineBoundaryLime>
/OutlineBoundaryLime {

%<Image Outline /operator fk /roundingScale 6 /bbox {0 0 5034 4026}>
	1218 2646 m
	1218 2636 1185 2602 1194 2586 c
	1201 2572 1224 2578 1236 2574 c
	1263 2562 1290 2505 1326 2520 c
	1335 2523 1342 2552 1350 2562 c
	1488 2514 l
	fk
	1254 2538 m
	1194 2316 l
	1176 2256 l
	1218 2154 l
	1206 2094 l
	1230 2058 l
	1230 1938 l
	fk
	3582 1902 m
	3540 1854 l
	3510 1788 l
	3432 1764 l
	3420 1710 l
	3348 1662 l
	3348 1626 l
	3312 1542 l
	3324 1518 l
	fk
	3330 1506 m
	3366 1494 l
	3366 1450 3330 1459 3312 1428 c
	3306 1418 3310 1406 3300 1398 c
	3270 1374 3192 1361 3222 1302 c
	fk
	3216 1308 m
	3197 1289 3199 1236 3234 1242 c
	3254 1245 3246 1255 3270 1248 c
	fk
	2688 1176 m
	2688 1158 l
	fk
%</Image>

} bd
%</Chapter>

%<Chapter OutlineBoundaryRed>
/OutlineBoundaryRed {

%<Image Outline /operator fk /roundingScale 6 /bbox {0 0 5034 4026}>
	1350 2868 m
	1314 2826 l
	fk
	2070 2820 m
	2093 2831 2104 2804 2118 2784 c
	2149 2737 2176 2687 2208 2640 c
	fk
	1674 2814 m
	1598 2701 1517 2597 1476 2472 c
	1463 2434 1462 2382 1452 2352 c
	1442 2322 1416 2308 1416 2274 c
	fk
	1068 2466 m
	1081 2505 1123 2516 1146 2550 c
	1158 2569 1145 2597 1164 2616 c
	1179 2631 1209 2639 1224 2664 c
	1250 2710 1250 2779 1308 2808 c
	fk
	3546 2460 m
	3594 2460 l
	3571 2475 3556 2502 3576 2532 c
	3603 2499 3640 2463 3660 2430 c
	3664 2422 3655 2407 3660 2400 c
	3670 2380 3700 2393 3720 2364 c
	3731 2347 3724 2322 3732 2304 c
	3744 2273 3769 2237 3756 2196 c
	3751 2183 3739 2176 3744 2160 c
	3748 2141 3756 2088 3744 2070 c
	3730 2050 3705 2045 3696 2016 c
	3691 2003 3696 1985 3690 1974 c
	3675 1946 3662 1977 3648 1974 c
	3633 1970 3617 1931 3606 1920 c
	3545 1980 3594 2031 3600 2094 c
	3603 2131 3534 2107 3546 2154 c
	3552 2181 3569 2185 3582 2208 c
	3588 2220 3576 2238 3576 2250 c
	3572 2293 3595 2324 3582 2364 c
	3575 2383 3555 2393 3546 2412 c
	3537 2428 3547 2446 3546 2460 c
	3543 2489 3486 2520 3462 2520 c
	3462 2520 3445 2503 3444 2502 c
	3429 2523 3392 2566 3408 2598 c
	3417 2616 3443 2626 3450 2646 c
	3456 2664 3436 2684 3444 2706 c
	3447 2716 3459 2715 3456 2730 c
	3449 2754 3418 2752 3414 2778 c
	3454 2784 3469 2788 3504 2754 c
	3553 2783 3609 2720 3654 2676 c
	fk
	3570 2472 m
	3576 2472 l
	fk
	4050 2334 m
	4050 2268 4041 2168 4086 2124 c
	4110 2154 l
	4098 2202 l
	4122 2274 l
	fk
	924 2316 m
	936 2208 l
	fk
	4128 2256 m
	4146 2172 l
	fk
	4080 2130 m
	4038 2058 l
	4014 2094 l
	3990 2064 l
	4074 1938 l
	fk
	4086 2124 m
	4098 2058 l
	4123 2062 4116 2084 4134 2058 c
	fk
	3996 2058 m
	3971 2028 3988 1992 3996 1962 c
	4004 1927 3980 1890 3978 1866 c
	3976 1849 3983 1827 3978 1806 c
	3965 1754 3925 1721 3906 1674 c
	3898 1656 3892 1623 3870 1614 c
	3845 1603 3861 1647 3840 1626 c
	3846 1620 l
	fk
	1338 1962 m
	1386 1896 l
	fk
	3594 1920 m
	3600 1914 l
	fk
	3594 1908 m
	3617 1879 3643 1806 3630 1806 c
	fk
	3642 1800 m
	3648 1758 l
	3702 1710 l
	fk
	3702 1698 m
	3702 1566 l
	3750 1572 l
	3726 1536 l
	3732 1530 l
	3738 1542 l
	fk
	3810 1686 m
	3834 1638 l
	fk
	3816 1674 m
	3798 1614 l
	3750 1578 l
	fk
	2730 1608 m
	2676 1542 l
	2706 1482 l
	fk
	2748 1608 m
	2736 1560 l
	2802 1446 l
	2826 1434 l
	2802 1362 l
	fk
	2574 1260 m
	2574 1282 2586 1292 2586 1314 c
	2586 1338 2565 1360 2574 1386 c
	2578 1398 2592 1404 2598 1416 c
	2603 1427 2593 1446 2598 1458 c
	2617 1503 2628 1534 2670 1548 c
	fk
	3726 1524 m
	3690 1500 l
	3684 1434 l
	3642 1386 l
	3636 1302 l
	3612 1272 l
	3660 1224 l
	3672 1230 l
	fk
	3726 1500 m
	3785 1401 3758 1298 3684 1206 c
	3678 1230 l
	fk
	2814 1326 m
	2838 1260 l
	2796 1164 l
	2754 1194 l
	fk
	3480 1176 m
	3506 1208 3567 1316 3612 1272 c
	fk
	3708 1212 m
	3732 1230 l
	3738 1176 l
	fk
	2538 1164 m
	2550 1164 l
	fk
	2508 1116 m
	2498 1096 2476 1047 2496 1026 c
	2504 1016 2520 1022 2526 1008 c
	2531 991 2499 974 2490 966 c
	2508 948 l
	2514 900 l
	fk
	3222 1062 m
	3318 1068 l
	3348 1110 l
	3378 1110 l
	fk
	2934 1008 m
	2922 1022 2906 1052 2886 1056 c
	2865 1059 2830 1024 2808 1026 c
	2791 1027 2785 1043 2766 1032 c
	2748 1021 2733 999 2712 1002 c
	2704 1002 2695 1022 2688 1026 c
	2659 1040 2614 987 2604 1050 c
	2664 1074 l
	2742 1044 l
	2796 1050 l
	fk
	2424 1062 m
	2490 1038 l
	fk
	3288 1062 m
	3292 1034 3333 1012 3360 1026 c
	3364 1017 3363 995 3372 990 c
	3400 970 3426 1019 3450 972 c
	fk
	3654 1056 m
	3672 990 l
	3534 804 l
	3444 738 l
	fk
	3306 1032 m
	3318 1026 l
	fk
	2808 1026 m
	2781 993 2769 954 2718 960 c
	2709 960 2701 976 2694 978 c
	2675 981 2649 956 2634 960 c
	2616 964 2596 978 2580 972 c
	2555 961 2536 948 2514 948 c
	fk
	3180 762 m
	3240 828 l
	3222 846 l
	3231 852 3253 863 3258 876 c
	3258 878 3243 890 3246 900 c
	3247 908 3265 915 3270 924 c
	3289 962 3247 987 3300 1014 c
	fk
	2622 1008 m
	2601 967 2553 991 2526 978 c
	fk
	2706 1008 m
	2694 978 l
	fk
	3168 906 m
	3270 990 l
	fk
	2910 984 m
	2910 972 l
	2940 972 l
	fk
	2778 978 m
	2820 935 2866 928 2910 972 c
	fk
	2634 960 m
	2634 948 l
	fk
	2826 942 m
	2835 886 2798 905 2772 888 c
	fk
	2832 906 m
	2892 894 l
	fk
	2310 900 m
	2412 876 l
	fk
	3150 798 m
	3186 780 l
	fk
	2940 720 m
	2946 681 2960 644 2970 606 c
	2972 594 2990 572 2982 558 c
	2976 548 2967 556 2964 546 c
	2959 535 2971 514 2970 510 c
	2965 494 2916 486 2928 462 c
	2943 428 3020 450 3048 450 c
	3104 450 3146 476 3198 498 c
	3212 504 3250 508 3258 528 c
	3260 535 3247 552 3252 564 c
	3258 580 3284 590 3294 606 c
	3312 637 3297 650 3330 678 c
	fk
	2610 678 m
	2578 656 2555 602 2568 564 c
	2573 546 2620 538 2634 534 c
	2671 521 2709 540 2742 546 c
	2818 558 2888 533 2964 546 c
	fk
	2628 540 m
	2588 507 2519 495 2472 480 c
	2461 476 2445 484 2436 480 c
	2415 469 2425 447 2412 438 c
	2399 429 2368 442 2358 444 c
	2328 448 2262 448 2238 444 c
	2215 440 2191 452 2178 450 c
	2165 447 2148 429 2136 432 c
	2105 437 2078 466 2058 426 c
	fk
	3084 444 m
	3084 438 l
	fk
%</Image>

} bd
%</Chapter>

%<Chapter OutlineBoundaryCyan>
/OutlineBoundaryCyan {

%<Image Outline /operator fk /roundingScale 6 /bbox {0 0 5034 4026}>
	3588 2544 m
	3634 2528 3633 2518 3654 2478 c
	3720 2472 l
	3738 2532 l
	fk
	3828 1686 m
	3828 1711 3830 1738 3822 1764 c
	3816 1781 3786 1826 3798 1848 c
	3808 1866 3831 1862 3846 1872 c
	3871 1889 3871 1918 3876 1944 c
	3883 1991 3870 2020 3870 2064 c
	3870 2077 3858 2108 3864 2118 c
	3886 2155 3938 2151 3966 2124 c
	3932 2084 3972 2066 3972 2016 c
	fk
	2844 1242 m
	2850 1152 l
	2880 1062 l
	fk
	2772 1170 m
	2742 1125 2728 1166 2694 1158 c
	2680 1154 2659 1132 2670 1116 c
	2679 1099 2696 1087 2706 1068 c
	fk
	2802 1056 m
	2856 1050 l
	fk
%</Image>

} bd
%</Chapter>

%<Chapter OutlineContinentGrey>
/OutlineContinentGrey {

%<Image Outline /operator fk /roundingScale 6 /bbox {0 0 5034 4026}>
	1392 2292 m
	1386 2244 l
	1368 2154 l
	1437 2165 1438 2256 1392 2292 c
	fk
	1272 2220 m
	1272 2162 1305 2204 1326 2190 c
	1345 2176 1329 2164 1350 2160 c
	1340 2132 1334 2131 1308 2136 c
	1314 2118 l
	1284 2112 l
	1332 2088 l
	1332 2052 l
	1377 2074 1364 2123 1356 2160 c
	1354 2165 1367 2208 1350 2220 c
	1331 2232 1290 2223 1272 2220 c
	fk
	1272 2112 m
	1252 2073 1288 2048 1302 2022 c
	1313 1998 1294 1974 1332 1974 c
	1314 2046 l
	1290 2064 l
	1272 2112 l
	fk
	3444 1434 m
	3420 1362 l
	3456 1340 3476 1343 3498 1386 c
	3480 1392 l
	3496 1408 3454 1423 3444 1434 c
	fk
	3282 1254 m
	3264 1260 l
	3282 1224 l
	3261 1232 3270 1202 3270 1182 c
	3372 1158 l
	3372 1062 3486 1122 3486 1182 c
	3444 1212 l
	3438 1212 l
	3426 1200 l
	3420 1218 l
	3440 1218 3440 1222 3444 1242 c
	3402 1230 l
	3336 1236 l
	3360 1278 l
	3335 1327 3296 1297 3282 1254 c
	fk
%</Image>

} bd
%</Chapter>

%</Play>

%<Play Shapes /define bd>

%<Chapter ShapeRim>
/ShapeRim {
	703.5 336.5 m 419 336.5 284.5 0 360 a
	fk

%<Part none/>

} bd
%</Chapter>

%</Play>

%<Play Installations>

%<Act DefineColors>
{
	currentdict end 3 1 roll [ exch /setgray load ] cvx def begin
}{
	currentdict end 5 1 roll [ 4 1 roll /setrgbcolor load ] cvx def begin
}{
	currentdict end 6 1 roll [ 5 1 roll /setcmykcolor load ] cvx def begin
} bind VisitColors
%</Act>

%<Sketch DefinePowers /$InitController {/ChangeController false def} /$Push {}>
%<+ /$AddController { dup /Controlled ChangeController put ChangeController {>
%<+ dup /Outer Power /Paint get put /ChangeController false def } if } /$Pull {>
%<+ } /$CreatePowerDict { 4 dict begin /Contrast xd /Paint xd /Offset xd>
%<+ /Letter xd currentdict end } /$GetLetterOffset { [ exch n 0 0 m true>
%<+ charpath pathbbox 3 2 roll add -2 div 3 1 roll add -2 div exch ] }>
s
MapUnitLetterFont z
{
	%$ $Push exch load exch load
	exch load exch load
	%$ 2 index $GetLetterOffset 3 1 roll $Pull
	2 index [ exch n 0 0 m true charpath pathbbox 3 2 roll add -2 div 3 1 roll add -2 div exch ] 3 1 roll
	%$ $CreatePowerDict
	4 dict begin /Contrast xd /Paint xd /Offset xd /Letter xd currentdict end
	%$ [ /Power 3 2 roll { $AddController } /exec load /def load ] cvx
	[ /Power 3 2 roll { dup /Controlled ChangeController put ChangeController { dup /Outer Power /Paint get put /ChangeController false def } if } /exec load /def load ] cvx
	currentdict end 3 1 roll def begin
} VisitPowers
r
%$ $InitController
/ChangeController false def
%</Sketch>

%<Scene Centers /operator ld /format {uname uname}>
/BRITAINCENTER /BRITAIN ld
/CHINACENTER /CHINA ld
/FRANCECENTER /FRANCE ld
/GERMANYCENTER /GERMANY ld
/JAPANCENTER /JAPAN ld
/RUSSIACENTER /RUSSIA ld
/USACENTER /USA ld
/NEUTRALCENTER /NEUTRAL ld
/UNOWNEDCENTER /UNOWNED ld
%</Scene>

%<Play DefineSupplies>

%<Part none/>

VisitSupplies
%</Play>

%</Play>

%</Play>
%%EndSetup

%%Page: Opening 1
%<Play Page>
DrawMap

%<Part none/>

ShowPage
%</Play>

%%Trailer
%%Pages: 1
